home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Macintosh Programmer’s Workshop / MPW QR4 / SADE 1.3b1 / SADEScripts / MiscProcs < prev    next >
Text File  |  1991-04-25  |  743b  |  22 lines
  1. #    Symbolic Application Debugging Environment    1.0 Final
  2. #
  3. #    Copyright Apple Computer, Inc. 1987-1988
  4. #    All rights reserved.
  5.  
  6. ###############################################################################
  7. proc displaywindowlist; 
  8. # displays the title of each window in the window list.
  9.  
  10. define awindow;            # used to contain the pointer to each window record in turn
  11.  
  12. awindow := ^WindowRecord(windowlist);    # start at the first window, pointed to from low memory.
  13.  
  14. while (awindow <> 0) do    # a NIL terminated list.
  15.     
  16.     printf ("Window Title = \"%P\"\n",^pString(awindow^.titleHandle^)^);        # write the information out.                                
  17.     awindow := ^WindowRecord(awindow^.nextWindow);        # point at the next in the list.
  18. end; # while    
  19.  
  20. end; # displaywindowlist
  21.  
  22.